home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 12 / 64er_Magazin_Sonderheft_12_86-12_1986_Markt__Technik_de_Side_A.d64 / move-demo 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  582b  |  27 lines
  1. 100 rem *** move-demo ***
  2. 110 rem *** windowing ***
  3. 120 :
  4. 130 print chr$(147)
  5. 140 for i=1 to 20
  6. 150 : print "dies ist ein test"
  7. 160 next
  8. 170 :
  9. 180 sys 49152,1024,50000,1000
  10. 190 :
  11. 200 print chr$(19)
  12. 210 print:print:print
  13. 220 print tab(10)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  14. 230 print tab(10)"[194] dieses window   [194]"
  15. 240 print tab(10)"[194] verschwindet,   [194]"
  16. 250 print tab(10)"[194] wenn sie eine   [194]"
  17. 260 print tab(10)"[194] taste druecken  [194]"
  18. 270 print tab(10)"[194] und wird durch  [194]"
  19. 280 print tab(10)"[194] den alten bild- [194]"
  20. 290 print tab(10)"[194] schirminhalt    [194]"
  21. 300 print tab(10)"[194] ersetzt         [194]"
  22. 310 print tab(10)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  23. 320 :
  24. 330 get a$:if a$="" then 330
  25. 340 sys 49152,50000,1024,1000
  26. 350 get a$:if a$="" then 350
  27.